home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / papel.dxr / 00061.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  1.1 KB  |  40 lines
  1. on exitFrame
  2.   global stage
  3.   if stage = 5 then
  4.     if the visible of sprite 3 = 1 then
  5.       if soundBusy(2) = 0 then
  6.         sound playFile 2, "..\som\ping.wav"
  7.       end if
  8.       set the visible of sprite 2 to 1
  9.       set the visible of sprite 3 to 0
  10.     else
  11.       set the visible of sprite 2 to 0
  12.       set the visible of sprite 3 to 1
  13.     end if
  14.   end if
  15.   if stage = 6 then
  16.     if the visible of sprite 4 = 1 then
  17.       set the visible of sprite 4 to 0
  18.     else
  19.       set the visible of sprite 4 to 1
  20.     end if
  21.     if (the top of sprite 15 > 203) and (the left of sprite 15 > 332) and ((the top of sprite 15 < 215) and (the left of sprite 15 < 454)) then
  22.       set the visible of sprite 4 to 0
  23.       set the visible of sprite 15 to 0
  24.       set the puppet of sprite 15 to 0
  25.       set the visible of sprite 5 to 1
  26.       set the visible of sprite 6 to 1
  27.       set stage to 7
  28.     end if
  29.   end if
  30.   if the stage = 7 then
  31.     if the visible of sprite 6 = 1 then
  32.       set the visible of sprite 6 to 0
  33.     else
  34.       set the visible of sprite 6 to 1
  35.     end if
  36.   end if
  37.   updateStage()
  38.   go(the frame)
  39. end
  40.